PLINNER,BODNER,LAU-0 972 3 6966656 



06/15 '01 19:17 NO. 963 10 



Figure 1 
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Figure 1 (con't) 



control flow analysis 
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action of each process 



creating sequential control flow 
graph 
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segmenting each process 
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Figure 1 (con't2) 



Retiming actions within 
segments 



creating an interrelationship 
between the elaboration graph and 
the sequential control graph 



scheduling execution of output 
Reporting potential races 
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Figure 2: Elaboration Algorithm 
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C = 0> 
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Figure 3 



struct cl { 
id 

data 

!dfdy 

!xreq 

Ixgrt 

art 

keep arb 

); 



sint; 

: int; 

:bocl; 

:bool; 

:bool; 

;arb; 

sys .arb; 



// arbiter client 
// my id 
// data - INPUT 
// data ready - INPUT 

// transfer request - interface to arb 
// transfer grant - arb sets this 



struct arb ( 
els 
data 

}; 



:list of cl; 
: int; 



// data destination 



extend sys { 
cl list 



:list of cl; 
keep clJLtst.sizeU -- 4; 
keep for each in cl w list ( 
.id " index; 

1; 

arb :arb; 

keep arb, els == cl_list; 
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Figure 4 
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Figure 5B 
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1 <• 

2 struct cl { // arbiter client 

3 id :int; // my id 

4 data :int; // data - INPUT 

5 Idrdy :bool; // data ready - INPUT 

6 ixreq rbool; // transfer request 

7 '.xgrt ibool; // transfer grant 

8 arb iarb; 

9 keep arb == sys*arb; 
XQ 

11 trans (} @sys»clk is f 

12 while TRUE { 

13 wait true(dcdy); 

14 xreq - TRUE; 

15 wait true(xgrt); 

16 arb. data = data; 

17 wait cycle; 

18 xreq =* FALSE; 

19 wait true (not xgrt); 

20 drdy - FALSE; 

21 I; 

22 }; 

23 }; 
24 

25 struct arb { 

26 els :list of cl; 

21 data :int; // data destination 

28 switchO Qsys.clk is ( 
2 9 while TRUE { 

30 for each in els ( 

31 if .xreq then C 

32 .xgrt * TRUE; 

33 wait true (not .xreq); 

34 .xgrt = FALSE; 

35 }; 

36 \ r 

37 wait cycle; 

38 ); 

39 s ); 

40 }; 

41 ; 

42 extend sys ( 

43 delist :list of cl; 

44 keep cl_list .size ( ) -= 4; 

45 keep for each in delist { 

46 rid « index; ~~ 

47 >; 

4 B arb : a rb ; 

49 keep arb.cls K = cl_list; 

50 event elk; 

51 }; 

52 '> 
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Figure 6 
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Figure 7 
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Figure 8 Part II 
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Figure 9: Segmentation of a control flow graph 
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for each node n in EG such that n has processes begin 
for each process p in n begin 
for each segment s in p begin 
for each action a in s begin 
for each read expression e in a begin 
t «- evaluate( e, context ) 
tag t with { n, s, 'read* } 
end 

for each write expression e in a begin 
t «- evaiuatef e, context ) 
tag t with { n, s, 'write 4 } 
end 
end 
end 
end 
end 



Figure 10 
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I Peterson's mutex algorithm - simple two agent example 
2 

3 <' 
4 

5 struct agent { 

6 req ibooli 

7 id sint? 

g oa : agent; 

9 p() @sys,clk is { 

10 req - TRUE; 

II sys.k » id; 

12 while Uys.k ™ id) £6 aa.req { 

13 wait cycle; 

14 } ; 

15 wait cycle; 

15 sys.w * id; // Critical segment 
17 req = FALSE; 

16 }; 
19 I; 

20 

21 extend sys ( 

22 k :int; // Requestors id. 

23 w :int; // The protected data field 

24 aO : agent; 

25 al : agent; 

26 keep aO,id == 0; 

27 keep aO.oa ™ al; 

28 keep al>id « 1; 

29 keep al.oa == aO; 

30 event elk; 

31 }; 
32 

33 

Figure 11 
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Figure 12 



rO_sys 
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Figure 1 3 
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Figure 14 
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Segment 1 , Segment I) \ 
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2 This is an iterator access to hierarchical arrays 



4 <» 

5 struct ball ( 

6 dat :uint (bits;3); 

7 mac :list of bool; 

8 keep mat. size () -= 2; 

9 ); 

10 

11 struct box ( 

12 flag :booi; 

13 bl :list of ball; 

14 keep bl.sizeO « 5; 

15 ); 
16 

17 struct iter_type ( 

18 ar ~:list of box; 
1^ foo() Qsys.clK is { 

20 wait cycle; 

21 for each in ar ( 

22 .flag « TRUE; 

23 for each in .bl { 

24 .dat ■ 2; 

25 .mat[l] « FALSE; 

26 ]; 

27 ); 

28 ar(2] .bl(3] .mat(0] - TRUE; 

23 ar [2} ♦bljsys.ind] .mat [0] = TRUE; 

30 }; 

31 }; 

32 ■ 

33 extend sys ( 

34 event elk; 

35 arr ;list of box; 

36 keep arr.siza() =» 4; 

37 ind :int; 
38 

3 9 iter :iter_type; 

40 ; keep iter.ar — arr; 

41 I >j 

42 • 

43 -> 



figure 15 
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